home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_12_1986_Transactor_Publishing.d64 / string synthesis (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  167 lines
  1. 0 rem string synthesis (aug 29/84)    :
  2. 1 :
  3. 2 rem 0 statements, 5 functions
  4. 3 :
  5. 4 rem keyword characters: 28
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem f/alph$     alph     2894    021
  9. 8 rem f/ucalph$   ucalph   2902    022
  10. 9 rem f/num$      num      2910    023
  11. 10 rem f/rvs$(    rvs      2928    024
  12. 11 rem f/build$(  build    2986    025
  13. 12 :
  14. 13 rem u/pshtem (3100/060)
  15. 14 rem u/pultem (3134/061)
  16. 15 rem u/kpftop (3156/062)
  17. 16 :
  18. 17 rem ================================
  19. 18 :
  20. 603 .asc "alph[164]ucalph[164]num[164]"
  21. 604 .asc "rvs$[168]build$[168]"
  22. 1603 .word alph-1,ucalph-1,num-1
  23. 1604 .word rvs-1,build-1
  24. 2894 ucalph lda #"[193]";range of upper
  25. 2896 ldx #"[218]"
  26. 2898 bne num1
  27. 2900 ;
  28. 2902 alph lda #"a"
  29. 2904 ldx #"z"
  30. 2906 bne num1
  31. 2908 ;
  32. 2910 num lda #"0"
  33. 2912 ldx #"9"
  34. 2914 num1 sta t3
  35. 2916 lda #0
  36. 2918 sta t2
  37. 2920 lda #$80
  38. 2922 sta t4
  39. 2924 bne bu2
  40. 2926 ;
  41. 2928 rvs jsr $aef4
  42. 2930 jsr $b6a3
  43. 2932 rv1 sta $61
  44. 2934 stx t5
  45. 2936 sty t6
  46. 2938 jsr $b47d
  47. 2940 tay
  48. 2942 beq rv3
  49. 2944 dey
  50. 2946 lda #0
  51. 2948 sta t2
  52. 2950 rv2 sty t3
  53. 2952 lda (t5),y
  54. 2954 pha
  55. 2956 ldy t2
  56. 2958 lda (t5),y
  57. 2960 tax
  58. 2962 pla
  59. 2964 sta ($62),y
  60. 2966 txa
  61. 2968 ldy t3
  62. 2970 sta ($62),y
  63. 2972 beq rv3
  64. 2974 inc t2
  65. 2976 dey
  66. 2978 cpy t2
  67. 2980 bcs rv2
  68. 2982 rv3 jmp $b4ca
  69. 2984 ;
  70. 2986 build ldy #0
  71. 2988 sty t2
  72. 2990 sty t4
  73. 2992 bu1 jsr pshtem
  74. 2994 jsr kpf1
  75. 2996 stx $67
  76. 2998 jsr pultem
  77. 3000 ldx $67
  78. 3002 stx t3
  79. 3004 jsr $79
  80. 3006 cmp #";"
  81. 3008 bne bu2
  82. 3010 jsr pshtem
  83. 3012 jsr kpftop
  84. 3014 stx $67
  85. 3016 jsr pultem
  86. 3018 ldx $67
  87. 3020 bu2 txa
  88. 3022 sec
  89. 3024 sbc t3
  90. 3026 bcc bu7
  91. 3028 adc #0
  92. 3030 bcs bu8
  93. 3032 pha
  94. 3034 adc t2
  95. 3036 bcs bu8
  96. 3038 sta t2
  97. 3040 pla
  98. 3042 stx t3
  99. 3044 jsr $b47d
  100. 3046 stx $22
  101. 3048 sty $23
  102. 3050 ldx t3
  103. 3052 sta t3
  104. 3054 ldy #$ff
  105. 3056 bu3 txa
  106. 3058 iny
  107. 3060 cpy t3
  108. 3062 beq bu4
  109. 3064 sta ($62),y
  110. 3066 dex
  111. 3068 bcc bu3
  112. 3070 bu4 bit t4
  113. 3072 bmi bu6
  114. 3074 jsr $79
  115. 3076 cmp #","
  116. 3078 bne bu5
  117. 3080 jsr $73
  118. 3082 bne bu1
  119. 3084 bu5 jsr $aef7
  120. 3086 bu6 lda t2
  121. 3088 ldx $62
  122. 3090 ldy $63
  123. 3092 jmp rv1
  124. 3094 bu7 jmp $b248
  125. 3096 bu8 jmp $a571
  126. 3098 ;
  127. 3100 pshtem lda #3
  128. 3102 jsr $a3fb
  129. 3104 pla
  130. 3106 sta $71
  131. 3108 pla
  132. 3110 sta $72
  133. 3112 ldx #4
  134. 3114 pht1 lda t2,x
  135. 3116 pha
  136. 3118 dex
  137. 3120 bpl pht1
  138. 3122 pht2 lda $72
  139. 3124 pha
  140. 3126 lda $71
  141. 3128 pha
  142. 3130 rts
  143. 3132 ;
  144. 3134 pultem pla
  145. 3136 sta $71
  146. 3138 pla
  147. 3140 sta $72
  148. 3142 ldx #$fb
  149. 3144 plt1 pla
  150. 3146 sta $7,x
  151. 3148 inx
  152. 3150 bmi plt1
  153. 3152 bpl pht2
  154. 3154 ;
  155. 3156 kpftop jsr $73
  156. 3158 kpf1 lda $33
  157. 3160 pha
  158. 3162 lda $34
  159. 3164 pha
  160. 3166 jsr $b79e
  161. 3168 pla
  162. 3170 sta $34
  163. 3172 pla
  164. 3174 sta $33
  165. 3176 rts
  166. 3178 ;
  167.